home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS26.ADF / SoundScape / LatticeLib / sslink.asm < prev    next >
Assembly Source File  |  1989-01-26  |  6KB  |  345 lines
  1. *    SSLINK.ASM    SoundScape library link routines. 
  2.  
  3. *    (c) 1986 Todor Fay 
  4. * 
  5.  
  6.  
  7.     XREF    _SoundScapeBase 
  8.  
  9.     XDEF    _AllocNode 
  10.     XDEF    _FastAlloc 
  11.     XDEF    _FreeNode 
  12.     XDEF    _FreeList 
  13.     XDEF    _FreeTree 
  14.     XDEF    _ReleaseMem 
  15.     XDEF    _WriteList 
  16.     XDEF    _ReadList 
  17.     XDEF    _AddMidiPort 
  18.     XDEF    _OpenMidiPort 
  19.     XDEF    _CloseMidiPort 
  20.     XDEF    _EditMidiPort 
  21.     XDEF    _OutMidiPort 
  22.     XDEF    _Send 
  23.     XDEF    _OpenLink 
  24.     XDEF    _CloseLink 
  25.     XDEF    _GetHelp 
  26.     XDEF    _RemoveMidiPort 
  27.     XDEF    _FunctionCall 
  28.     XDEF    _ReadFileName 
  29.     XDEF    _WriteFileName 
  30.     XDEF    _FindMidiPort 
  31.     XDEF    _MidiPortName 
  32.     XDEF    _MidiPortBase 
  33.  
  34. _LVOmusalloc    EQU    -36 
  35. _LVOmusfastalloc EQU    -42 
  36. _LVOmusfree    EQU    -48 
  37. _LVOmusfreelist    EQU    -54 
  38. _LVOmusfreetree    EQU    -60 
  39. _LVOreleasemem    EQU    -66 
  40. _LVOwritelist    EQU    -72 
  41. _LVOreadlist    EQU    -78 
  42. _LVOaddport    EQU    -84 
  43. _LVOopenport    EQU    -90 
  44. _LVOcloseport    EQU    -96 
  45. _LVOeditport    EQU    -102 
  46. _LVOoutport    EQU    -108 
  47. _LVOsendpackets    EQU    -114 
  48. _LVOopenlink    EQU    -120 
  49. _LVOcloselink    EQU    -126 
  50. _LVOgethelp    EQU    -132 
  51. _LVOremoveport    EQU    -138 
  52. _LVOfunctcall    EQU    -144 
  53. _LVOreadname    EQU    -150 
  54. _LVOwritename    EQU    -156 
  55. _LVOfindport    EQU    -162 
  56. _LVOportname    EQU    -168 
  57. _LVOportbase    EQU    -174 
  58.  
  59. _MidiPortBase 
  60.     LINK    A6,#0000 
  61.     MOVE.L    8(A6),D0 
  62.     MOVE.L    A6,-(SP) 
  63.     MOVE.L    _SoundScapeBase,A6 
  64.     JSR    _LVOportbase(A6) 
  65.     MOVE.L    (SP)+,A6 
  66.     UNLK    A6 
  67.     RTS 
  68.  
  69. _AllocNode 
  70.     LINK    A6,#0000 
  71.     MOVE.L    8(A6),D0 
  72.     MOVE.L    A6,-(SP) 
  73.     MOVE.L    _SoundScapeBase,A6 
  74.     JSR    _LVOmusalloc(A6) 
  75.     MOVE.L    (SP)+,A6 
  76.     UNLK    A6 
  77.     RTS 
  78.  
  79. _FastAlloc 
  80.     LINK    A6,#0000 
  81.     MOVE.L    8(A6),D0 
  82.     MOVE.L    A6,-(SP) 
  83.     MOVE.L    _SoundScapeBase,A6 
  84.     JSR    _LVOmusfastalloc(A6) 
  85.     MOVE.L    (SP)+,A6 
  86.     UNLK    A6 
  87.     RTS 
  88.  
  89. _FreeNode 
  90.     LINK    A6,#0000 
  91.     MOVE.L    8(A6),D0 
  92.     MOVE.L    A6,-(SP) 
  93.     MOVE.L    _SoundScapeBase,A6 
  94.     JSR    _LVOmusfree(A6) 
  95.     MOVE.L    (SP)+,A6 
  96.     UNLK    A6 
  97.     RTS 
  98.  
  99. _FreeList 
  100.     LINK    A6,#0000 
  101.     MOVE.L    8(A6),D0 
  102.     MOVE.L    A6,-(SP) 
  103.     MOVE.L    _SoundScapeBase,A6 
  104.     JSR    _LVOmusfreelist(A6) 
  105.     MOVE.L    (SP)+,A6 
  106.     UNLK    A6 
  107.     RTS 
  108.  
  109. _FreeTree 
  110.     LINK    A6,#0000 
  111.     MOVE.L    8(A6),D0 
  112.     MOVE.L    A6,-(SP) 
  113.     MOVE.L    _SoundScapeBase,A6 
  114.     JSR    _LVOmusfreetree(A6) 
  115.     MOVE.L    (SP)+,A6 
  116.     UNLK    A6 
  117.     RTS 
  118.  
  119. _ReleaseMem 
  120.     LINK    A6,#0000 
  121.     MOVE.L    8(A6),D0 
  122.     MOVE.L    A6,-(SP) 
  123.     MOVE.L    _SoundScapeBase,A6 
  124.     JSR    _LVOreleasemem(A6) 
  125.     MOVE.L    (SP)+,A6 
  126.     UNLK    A6 
  127.     RTS 
  128. _WriteList 
  129.     LINK    A6,#0000 
  130.     MOVE.L    8(A6),D0 
  131.     MOVE.L    A6,-(SP) 
  132.     MOVE.L    D1,-(SP) 
  133.     MOVE.L    12(A6),D1 
  134.     MOVE.L    _SoundScapeBase,A6 
  135.     JSR    _LVOwritelist(A6) 
  136.     MOVE.L    (SP)+,D1 
  137.     MOVE.L    (SP)+,A6 
  138.     UNLK    A6 
  139.     RTS 
  140.  
  141. _ReadList 
  142.     LINK    A6,#0000 
  143.     MOVE.L    8(A6),D0 
  144.     MOVE.L    A6,-(SP) 
  145.     MOVE.L    D1,-(SP) 
  146.     MOVE.L    12(A6),D1 
  147.     MOVE.L    _SoundScapeBase,A6 
  148.     JSR    _LVOreadlist(A6) 
  149.     MOVE.L    (SP)+,D1 
  150.     MOVE.L    (SP)+,A6 
  151.     UNLK    A6 
  152.     RTS 
  153.  
  154. _AddMidiPort 
  155.     LINK    A6,#0000 
  156.     MOVEM.L    D1-D7/A6,-(SP) 
  157.     MOVE.L    8(A6),D7 
  158.     MOVE.L    12(A6),D6 
  159.     MOVE.L    16(A6),D5 
  160.     MOVE.L    20(A6),D4 
  161.     MOVE.L    24(A6),D3 
  162.     MOVE.L    28(A6),D2 
  163.     MOVE.L    32(A6),D1 
  164.     MOVE.L    36(A6),D0 
  165.     MOVE.L    _SoundScapeBase,A6 
  166.     JSR    _LVOaddport(A6) 
  167.     MOVEM.L    (SP)+,D1-D7/A6 
  168.     UNLK    A6 
  169.     RTS 
  170.  
  171. _OpenMidiPort 
  172.     LINK    A6,#0000 
  173.     MOVE.L    8(A6),D0 
  174.     MOVE.L    A6,-(SP) 
  175.     MOVE.L    D1,-(SP) 
  176.     MOVE.L    12(A6),D1 
  177.     MOVE.L    _SoundScapeBase,A6 
  178.     JSR    _LVOopenport(A6) 
  179.     MOVE.L    (SP)+,D1 
  180.     MOVE.L    (SP)+,A6 
  181.     UNLK    A6 
  182.     RTS 
  183.  
  184. _CloseMidiPort 
  185.     LINK    A6,#0000 
  186.     MOVE.L    8(A6),D0 
  187.     MOVE.L    A6,-(SP) 
  188.     MOVE.L    D1,-(SP) 
  189.     MOVE.L    12(A6),D1 
  190.     MOVE.L    _SoundScapeBase,A6 
  191.     JSR    _LVOcloseport(A6) 
  192.     MOVE.L    (SP)+,D1 
  193.     MOVE.L    (SP)+,A6 
  194.     UNLK    A6 
  195.     RTS 
  196.  
  197. _EditMidiPort 
  198.     LINK    A6,#0000 
  199.     MOVE.L    8(A6),D0 
  200.     MOVEM.L    D1-D3/A6,-(SP) 
  201.     MOVE.L    12(A6),D1 
  202.     MOVE.L    16(A6),D2 
  203.     MOVE.L    20(A6),D3 
  204.     MOVE.L    _SoundScapeBase,A6 
  205.     JSR    _LVOeditport(A6) 
  206.     MOVEM.L    (SP)+,D1-D3/A6 
  207.     UNLK    A6 
  208.     RTS 
  209.  
  210. _OutMidiPort 
  211.     LINK    A6,#0000 
  212.     MOVE.L    8(A6),D0 
  213.     MOVE.L    A6,-(SP) 
  214.     MOVE.L    D1,-(SP) 
  215.     MOVE.L    12(A6),D1 
  216.     MOVE.L    _SoundScapeBase,A6 
  217.     JSR    _LVOoutport(A6) 
  218.     MOVE.L    (SP)+,D1 
  219.     MOVE.L    (SP)+,A6 
  220.     UNLK    A6 
  221.     RTS 
  222.  
  223. _Send 
  224.     LINK    A6,#0000 
  225.     MOVE.L    8(A6),D0 
  226.     MOVE.L    A6,-(SP) 
  227.     MOVE.L    D1,-(SP) 
  228.     MOVE.L    12(A6),D1 
  229.     MOVE.L    _SoundScapeBase,A6 
  230.     JSR    _LVOsendpackets(A6) 
  231.     MOVE.L    (SP)+,D1 
  232.     MOVE.L    (SP)+,A6 
  233.     UNLK    A6 
  234.     RTS 
  235.  
  236. _OpenLink 
  237.     LINK    A6,#0000 
  238.     MOVE.L    8(A6),D0 
  239.     MOVE.L    A6,-(SP) 
  240.     MOVE.L    D1,-(SP) 
  241.     MOVE.L    12(A6),D1 
  242.     MOVE.L    _SoundScapeBase,A6 
  243.     JSR    _LVOopenlink(A6) 
  244.     MOVE.L    (SP)+,D1 
  245.     MOVE.L    (SP)+,A6 
  246.     UNLK    A6 
  247.     RTS 
  248.  
  249. _CloseLink 
  250.     LINK    A6,#0000 
  251.     MOVE.L    8(A6),D0 
  252.     MOVE.L    A6,-(SP) 
  253.     MOVE.L    D1,-(SP) 
  254.     MOVE.L    12(A6),D1 
  255.     MOVE.L    _SoundScapeBase,A6 
  256.     JSR    _LVOcloselink(A6) 
  257.     MOVE.L    (SP)+,D1 
  258.     MOVE.L    (SP)+,A6 
  259.     UNLK    A6 
  260.     RTS 
  261.  
  262. _GetHelp 
  263.     LINK    A6,#0000 
  264.     MOVE.L    8(A6),D0 
  265.     MOVE.L    A6,-(SP) 
  266.     MOVE.L    _SoundScapeBase,A6 
  267.     JSR    _LVOgethelp(A6) 
  268.     MOVE.L    (SP)+,A6 
  269.     UNLK    A6 
  270.     RTS 
  271.  
  272. _FindMidiPort 
  273.     LINK    A6,#0000 
  274.     MOVE.L    8(A6),D0 
  275.     MOVE.L    A6,-(SP) 
  276.     MOVE.L    _SoundScapeBase,A6 
  277.     JSR    _LVOfindport(A6) 
  278.     MOVE.L    (SP)+,A6 
  279.     UNLK    A6 
  280.     RTS 
  281.      
  282. _MidiPortName 
  283.     LINK    A6,#0000 
  284.     MOVE.L    8(A6),D0 
  285.     MOVE.L    A6,-(SP) 
  286.     MOVE.L    _SoundScapeBase,A6 
  287.     JSR    _LVOportname(A6) 
  288.     MOVE.L    (SP)+,A6 
  289.     UNLK    A6 
  290.     RTS 
  291.  
  292. _RemoveMidiPort 
  293.     LINK    A6,#0000 
  294.     MOVE.L    8(A6),D0 
  295.     MOVE.L    A6,-(SP) 
  296.     MOVE.L    _SoundScapeBase,A6 
  297.     JSR    _LVOremoveport(A6) 
  298.     MOVE.L    (SP)+,A6 
  299.     UNLK    A6 
  300.     RTS 
  301.  
  302. _FunctionCall 
  303.     LINK    A6,#0000 
  304.     MOVEM.L    D1-D7/A6,-(SP) 
  305.     MOVE.L    8(A6),D0 
  306.     MOVE.L    12(A6),D1 
  307.     MOVE.L    16(A6),D2 
  308.     MOVE.L    20(A6),D3 
  309.     MOVE.L    24(A6),D4 
  310.     MOVE.L    28(A6),D5 
  311.     MOVE.L    32(A6),D6 
  312.     MOVE.L    36(A6),D7 
  313.     MOVE.L    _SoundScapeBase,A6 
  314.     JSR    _LVOfunctcall(A6) 
  315.     MOVEM.L    (SP)+,D1-D7/A6 
  316.     UNLK    A6 
  317.     RTS 
  318.  
  319. _ReadFileName 
  320.     LINK    A6,#0000 
  321.     MOVEM.L    D1-D2/A6,-(SP) 
  322.     MOVE.L    8(A6),D0 
  323.     MOVE.L    12(A6),D1 
  324.     MOVE.L    16(A6),D2 
  325.     MOVE.L    _SoundScapeBase,A6 
  326.     JSR    _LVOreadname(A6) 
  327.     MOVEM.L    (SP)+,D1-D2/A6 
  328.     UNLK    A6 
  329.     RTS 
  330.  
  331. _WriteFileName 
  332.     LINK    A6,#0000 
  333.     MOVEM.L    D1-D2/A6,-(SP) 
  334.     MOVE.L    8(A6),D0 
  335.     MOVE.L    12(A6),D1 
  336.     MOVE.L    16(A6),D2 
  337.     MOVE.L    _SoundScapeBase,A6 
  338.     JSR    _LVOwritename(A6) 
  339.     MOVEM.L    (SP)+,D1-D2/A6 
  340.     UNLK    A6 
  341.     RTS 
  342.  
  343.  
  344.     END 
  345.